home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 October / CHIP Ekim 1996.iso / web / editor / htmlwiz / install.cmd < prev    next >
Encoding:
Text File  |  1995-10-23  |  640 b   |  18 lines
  1. /* Create HTML Wizard Object on Desktop */
  2. Call RxFuncAdd "SysLoadFuncs","RexxUtil","SysLoadFuncs"
  3. Call SysLoadFuncs
  4. CurrentDir=Directory()
  5. FileName=CurrentDir||"\htmlwiz.exe"
  6. ExeName="EXENAME="||FileName
  7. Say "Would you like to associate *.htm and *.html files with HTML Wizard (y/n)?"
  8. Parse Pull a
  9. If Translate(a)="Y" then
  10.    ExeName=ExeName||";ASSOCFILTER=*.htm,*.html"
  11. If SysCreateObject("WPProgram","HTML Wizard","<WP_DESKTOP>",ExeName) then do
  12.       Say "Desktop HTML Wizard Object was created."
  13.       rc=SysSetIcon(FileName,"htmlwiz.ico")
  14.       End
  15. Else
  16.       Say "Could not create Desktop HTML Wizard Object."
  17. Exit
  18.